function p_im = process(im)
    %p_im = process(im)
    %p_im: fekete-feher (0 bit-> feher pixel, 1 bit ->fekete pixel) kep, ahol a ciklamen (magenta) a feher szin
    %im: az eredeti kep rgb formatumban

%a piros komponens
r=double(im(:,:,1));

%a zold komponens
g=double(im(:,:,2));

%a kek komponens
b=double(im(:,:,3));

%atalakitas
p_im =(g.^2+(256-r).^2+(256-b).^2)/131070; 
p_im = 1-im2bw(p_im,0.23);
